Copy Subroutine

private subroutine Copy(time2, time1)

Create an exact copy of DateTime

Arguments

Type IntentOptional Attributes Name
type(DateTime), intent(out) :: time2
type(DateTime), intent(in) :: time1

Source Code

SUBROUTINE  Copy &
!
(time2, time1)

IMPLICIT NONE

! Arguments with intent(in):
TYPE (DateTime), INTENT(IN) :: time1


! Arguments with intent(out):
TYPE (DateTime), INTENT(OUT) :: time2

!------------end of declaration------------------------------------------------

time2 % year     = time1 % year
time2 % month    = time1 % month
time2 % day      = time1 % day
time2 % hour     = time1 % hour
time2 % minute   = time1 % minute
time2 % second   = time1 % second
time2 % TZhour   = time1 % TZhour
time2 % TZminute = time1 % TZminute
time2 % TZsign   = time1 % TZsign
END SUBROUTINE Copy